home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Pascal / Snippets / vListMngr 1.0 / Sources ƒ / vListDemo_Main < prev    next >
Encoding:
Text File  |  1996-04-10  |  747 b   |  35 lines  |  [TEXT/PJMM]
  1. program vListDemo_Main;
  2.  
  3.     uses
  4.         vListMngr, vListDemo_Globals, About_Dialog, DemoList_Window, DemoList_Procs, InitTheMenus, HandleTheMenus, vListDemo_Events;
  5.  
  6.     var
  7.         i, j, k: INTEGER;
  8.  
  9.     procedure InitGlobals;
  10.     begin
  11.         DemoList := nil;
  12.         activeTE := nil;
  13.     end;        {procedure InitGlobals}
  14.  
  15.     procedure InitProgram;
  16.         var
  17.             tRect: RECT;
  18.     begin
  19.         FlushEvents(everyEvent, 0);{Clear out all events}
  20.         InitCursor;                     {Make an arrow cursor}
  21.         InitGlobals;
  22.         Init_My_Menus;                  {Initialize menu bar}
  23.         Init_DemoList_Window;      {Initialize the window routines}
  24.     end;
  25.  
  26. begin
  27.     InitProgram;
  28.     NewDemoList;
  29. {MAIN LOOP}
  30.     repeat
  31.         HandleEvents(doneFlag);            {handle mouse and key events}
  32.     until doneFlag;
  33.     CloseDemoList;
  34.     Close_DemoList_Window(DemoListWindow);
  35. end.